Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/TOC.DIR/00335_Script_sbtx2

Text File | 1995-11-21 | 1KB | 46 lines

 -- standard button trios
--property myRollover, myPressed, myChannel, myScript, ancestor

--on birth me, sp, ro, pr, sc
--  set ancestor to birth(script "sb",sp,sc)
--  set myRollover to (the number of cast ro)
--  set myPressed to (the number of cast pr)
--  set myScript to sc
--  set myChannel to integer(sp)
--  return me
--end

--change appearance
on sbt2rollo myChannel, myRollover
  --put ">>>my rollover cast 8 " & myRollover

  puppetSprite myChannel,TRUE
  set the castNum of sprite myChannel to myRollover
  updateStage
  --NOWdmdpuppetSprite myChannel, false
end

on sbt2press theLine
  set myChannel = integer(item 4 of theLine)
  set myPressed = integer(item 6 of theLine)
  --put ">>> on press cast 8"
  puppetSprite myChannel,TRUE
  set the castNum of sprite myChannel to myPressed
  updateStage
  puppetSprite myChannel, false
end

on sbt2norm theLine
  set myChannel = integer(item 4 of theLine)
  puppetSprite myChannel, false
end

--
--
-- Note that for myPop, we have two args, so get items 7 to 8
--
on sbt2doScript theLine
  set command = (item 7 of theLine) & quote & (item 8 of theLine) & quote
  do command
end